02220	PROCEDURE GRAPH;
02230	BEGIN "GRAFF"
02240	INTEGER I,J,X,Y,Z;
02250	INTEGER ARRAY DPYBUF[0:1000];
02260	INTEGER ARRAY NAME[0:40];
02270	TYPLOC(-250,-511);
02280	FOR I←0 STEP 1 UNTIL 40 DO NAME[I]←0;
02290	DPYSET(DPYBUF);
02300	AIVECT(-450,480);
02310	FOR I←0 STEP 1 UNTIL 12 DO BEGIN
02320	 RVECT(0,-30); RVECT(0,30); RVECT(8,0);
02330	 FOR J←0 STEP 1 UNTIL 8 DO BEGIN
02340	  RVECT(0,-4); RIVECT(0,4); RVECT(8,0); END; END;
02350	RVECT(0,-30);
02360	
02370	FOR I←0 STEP 1 UNTIL CNTSIZ DO BEGIN
02380	 Z←LEV1[I];
02390	 IF Z=0 THEN DONE;
02400	 FOR J←0 STEP 1 UNTIL 40 DO BEGIN
02410	  IF NAME[J]=0 THEN DONE;
02420	  IF NAME[J]=Z THEN DONE;
02430	 END;
02440	X←(LDB(POINT(15,SEG1[I],17)))*8-600;
02450	 Y←400-25*J;
02460	 AIVECT(X,Y);
02470	 IF NAME[J]=0 THEN BEGIN  NAME[J]←Z; DPYSST(CVXSTR(NAME[J])); END;
02480	 AIVECT(X+90,Y); DPYSST(CVS(LDB(POINT(3,SEG1[I],2))));
02490	 AIVECT(X+142,Y+5);  X←(2+LDB(POINT(15,SEG1[I],35)))*8; RVECT(X,0);
02500	END;
02510	
02520	FOR I←0 STEP 1 UNTIL CNTSIZ DO BEGIN
02530	 Z←LEV2[I];
02540	 IF Z=0 THEN DONE;
02550	 FOR J←0 STEP 1 UNTIL 40 DO BEGIN
02560	  IF NAME[J]=0 THEN DONE;
02570	  IF NAME[J]=Z THEN DONE;
02580	 END;
02590	 X←(LDB(POINT(15,SEG2[I],17)))*8-600;
02600	 Y←360-25*J;
02610	 AIVECT(X,Y);
02620	 IF NAME[J]=0 THEN BEGIN  NAME[J]←Z;DPYSST(CVXSTR(NAME[J]));END;
02630	 AIVECT(X+90,Y); DPYSST(CVS(LDB(POINT(3,SEG2[I],2))));
02640	 AIVECT(X+142,Y+5);X←(2+LDB(POINT(15,SEG2[I],35)))*8;RVECT(X,0);
02650	END;
02660	
02670	FOR I←0 STEP 1 UNTIL CNTSIZ DO BEGIN
02680	 Z←LEV3[I];
02690	 IF Z=0 THEN DONE;
02700	 FOR J←0 STEP 1 UNTIL 40 DO BEGIN
02710	  IF NAME[J]=0 THEN DONE;
02720	  IF NAME[J]=Z THEN DONE;
02730	 END;
02740	 X←(LDB(POINT(15,SEG3[I],17)))*8-600;
02750	 Y←320-25*J;
02760	 AIVECT(X,Y);
02770	 IF NAME[J]=0 THEN BEGIN  NAME[J]←Z;DPYSST(CVXSTR(NAME[J]));END;
02780	 AIVECT(X+90,Y); DPYSST(CVS(LDB(POINT(3,SEG3[I],2))));
02790	 AIVECT(X+142,Y+5); X←(2+LDB(POINT(15,SEG3[I],35)))*8; RVECT(X,0);
02800	END;
02810	DPYOUT(1);
02820	END "GRAFF";
02830